home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / amigae / ged-e2.0.lha / GED-E / ec_optimui2e.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-11-03  |  935 b   |  27 lines
  1. /*     Optimise E Sources with MUI macros, after Mac2E preprocess      */
  2.  
  3. options results                             /* enable return codes     */
  4.                                             /* not started by GoldEd ? */
  5. if (LEFT(ADDRESS(), 6) ~= "GOLDED") then address 'GOLDED.1'
  6. 'LOCK CURRENT QUIET'                        /* lock GUI, gain access   */
  7. if rc then exit
  8. options failat 6                            /* ignore warnings         */
  9. signal on syntax                            /* ensure clean exit       */
  10.  
  11. 'QUERY DOC VAR PATH'
  12. 'REQUEST TITLE="Select Source with MUI macros" PATH="'path'" FILE VAR MUIFILE'
  13. if rc=0 then do
  14.     address command 'EDEVICE:OptiMUI2E >NIL: 'muifile' 'muifile''
  15.     'REQUEST STATUS="Source file optimized !"'
  16.     'OPEN NAME="'muifile'" AGAIN'
  17. end
  18. else 'REQUEST STATUS=" Can''t optimise source file !"'
  19. 'UNLOCK'
  20. exit
  21.  
  22. syntax:
  23. say "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
  24. 'UNLOCK'
  25. exit
  26.  
  27.